object formURLBlock: TformURLBlock Left = 0 Top = 0 BorderIcons = [] Caption = 'Spybot-S&D - Bad URL Blocker' ClientHeight = 170 ClientWidth = 351 Color = clBtnFace Constraints.MinHeight = 175 Constraints.MinWidth = 359 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Icon.Data = {} OldCreateOrder = False Position = poScreenCenter DesignSize = ( 351 170) PixelsPerInch = 96 TextHeight = 13 object imgSpecific: TImage Left = 312 Top = 8 Width = 32 Height = 32 Anchors = [akTop, akRight] Picture.Data = {} Transparent = True end object labelInfo: TLabel Left = 48 Top = 8 Width = 257 Height = 49 Alignment = taCenter Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'Spybot-S&&Ds IE helper has detected an URL that is known as a ma' + 'licious resource.' Transparent = True WordWrap = True end object imgLogo: TImage Left = 8 Top = 8 Width = 32 Height = 32 Picture.Data = {} end object labelURLInfo: TLabel Left = 8 Top = 56 Width = 72 Height = 17 AutoSize = False Caption = 'URL:' end object labelProductInfo: TLabel Left = 8 Top = 72 Width = 72 Height = 17 AutoSize = False Caption = 'Identified as:' end object labelProduct: TLabel Left = 88 Top = 72 Width = 256 Height = 17 Anchors = [akLeft, akTop, akRight] AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object labelURL: TLabel Left = 88 Top = 56 Width = 256 Height = 17 Anchors = [akLeft, akTop, akRight] AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object bnOk: TButton Left = 264 Top = 96 Width = 81 Height = 49 Action = aOk Anchors = [akRight, akBottom] Default = True ModalResult = 1 TabOrder = 0 end object bnCancel: TButton Left = 8 Top = 96 Width = 81 Height = 49 Action = aCancel Anchors = [akLeft, akBottom] ModalResult = 2 TabOrder = 1 end object cbFuture: TComboBox Left = 95 Top = 96 Width = 163 Height = 21 Style = csDropDownList Anchors = [akLeft, akRight, akBottom] ItemHeight = 13 ItemIndex = 0 TabOrder = 2 Text = 'Ask me again next time' OnChange = cbFutureChange Items.Strings = ( 'Ask me again next time' 'Remember for this session' 'Always react this way') end object sbar: TStatusBar Left = 0 Top = 151 Width = 351 Height = 19 Panels = <> SimplePanel = True end object cbIgnore: TComboBox Left = 95 Top = 124 Width = 163 Height = 21 Style = csDropDownList Anchors = [akLeft, akRight, akBottom] ItemHeight = 13 ItemIndex = 1 TabOrder = 4 Text = 'Remember for this page' OnChange = cbFutureChange Items.Strings = ( 'Remember for complete url' 'Remember for this page' 'Remember for this domain') end object ActionList1: TActionList Left = 64 Top = 8 object aOk: TAction Caption = 'Deny' OnExecute = aOkExecute end object aCancel: TAction Caption = 'Allow' OnExecute = aCancelExecute end end end